home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SMASTERS / APPROACH / DB2WWW.MPR / SCRIPT / ApproachDoc / Web Background / Body / btnCancel.s (.txt) < prev    next >
Null Bytes Alternating  |  1997-01-09  |  2KB  |  27 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub NewWinTitle
  5. Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  6.  
  7. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8.  
  9. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10. Private Sub BindEvents(Byval Objectname_ As String)
  11.     Static Source As BUTTON
  12.     Set Source = Bind(Objectname_)
  13.     On Event Click From Source Call Click
  14. End Sub
  15.  
  16. '++LotusScript Development Environment:2:2:NewWinTitle:1:8
  17. Sub NewWinTitle
  18.     'Rename the window title for the dialogue so that it has the title we want instead of the apr file name
  19.     Dim activeWin As Integer, winTitle As String
  20.     activeWin% = GetActiveWindow()
  21.     winTitle$ = "Approach"
  22.     SetWindowTextA activeWin%, winTitle$
  23. End Sub
  24. '++LotusScript Development Environment:2:2:Click:1:12
  25. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  26.     GetWebTemplate(Source.name)
  27. End Sub